home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / SQL2000_an204160182007.psc / SQL SERVICE CENTRE / Form1.frm < prev    next >
Text File  |  2007-01-08  |  62KB  |  1,847 lines
  1. VERSION 5.00
  2. Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form Form1 
  5.    BackColor       =   &H00C0C0C0&
  6.    Caption         =   "Service Centre Entry"
  7.    ClientHeight    =   6255
  8.    ClientLeft      =   165
  9.    ClientTop       =   555
  10.    ClientWidth     =   10935
  11.    Icon            =   "Form1.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   6255
  15.    ScaleWidth      =   10935
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.PictureBox Picture2 
  18.       Appearance      =   0  'Flat
  19.       BackColor       =   &H80000006&
  20.       ForeColor       =   &H80000008&
  21.       Height          =   1190
  22.       Left            =   240
  23.       ScaleHeight     =   1155
  24.       ScaleWidth      =   3090
  25.       TabIndex        =   60
  26.       Top             =   240
  27.       Width           =   3120
  28.       Begin VB.Image Image1 
  29.          Height          =   960
  30.          Left            =   240
  31.          Picture         =   "Form1.frx":0442
  32.          Top             =   120
  33.          Width           =   2595
  34.       End
  35.    End
  36.    Begin VB.TextBox Text15 
  37.       Appearance      =   0  'Flat
  38.       BackColor       =   &H00FFFF00&
  39.       Height          =   285
  40.       Left            =   5040
  41.       MaxLength       =   50
  42.       TabIndex        =   59
  43.       Top             =   2760
  44.       Width           =   3195
  45.    End
  46.    Begin VB.TextBox Text7 
  47.       Alignment       =   1  'Right Justify
  48.       Appearance      =   0  'Flat
  49.       BackColor       =   &H00FFFF00&
  50.       Height          =   285
  51.       Left            =   6960
  52.       MaxLength       =   10
  53.       TabIndex        =   44
  54.       Top             =   5400
  55.       Width           =   1275
  56.    End
  57.    Begin VB.TextBox Text6 
  58.       Alignment       =   1  'Right Justify
  59.       Appearance      =   0  'Flat
  60.       BackColor       =   &H00FFFF00&
  61.       Height          =   285
  62.       Left            =   6960
  63.       MaxLength       =   10
  64.       TabIndex        =   43
  65.       Top             =   4920
  66.       Width           =   1275
  67.    End
  68.    Begin VB.TextBox Text5 
  69.       Alignment       =   1  'Right Justify
  70.       Appearance      =   0  'Flat
  71.       BackColor       =   &H00FFFF00&
  72.       Height          =   285
  73.       Left            =   6960
  74.       MaxLength       =   10
  75.       TabIndex        =   42
  76.       Top             =   4560
  77.       Width           =   1275
  78.    End
  79.    Begin VB.TextBox Text4 
  80.       Alignment       =   1  'Right Justify
  81.       Appearance      =   0  'Flat
  82.       BackColor       =   &H00FFFF00&
  83.       Height          =   285
  84.       Left            =   6960
  85.       MaxLength       =   10
  86.       TabIndex        =   41
  87.       Top             =   4200
  88.       Width           =   1275
  89.    End
  90.    Begin VB.TextBox Text3 
  91.       Alignment       =   1  'Right Justify
  92.       Appearance      =   0  'Flat
  93.       BackColor       =   &H00FFFF00&
  94.       Height          =   285
  95.       Left            =   6960
  96.       MaxLength       =   10
  97.       TabIndex        =   40
  98.       Top             =   3840
  99.       Width           =   1275
  100.    End
  101.    Begin VB.TextBox Text2 
  102.       Alignment       =   1  'Right Justify
  103.       Appearance      =   0  'Flat
  104.       BackColor       =   &H00FFFF00&
  105.       Height          =   285
  106.       Left            =   6960
  107.       MaxLength       =   10
  108.       TabIndex        =   39
  109.       Top             =   3480
  110.       Width           =   1275
  111.    End
  112.    Begin VB.TextBox Text1 
  113.       Alignment       =   1  'Right Justify
  114.       Appearance      =   0  'Flat
  115.       BackColor       =   &H00FFFF00&
  116.       Height          =   285
  117.       Left            =   6960
  118.       MaxLength       =   10
  119.       TabIndex        =   38
  120.       Top             =   3120
  121.       Width           =   1275
  122.    End
  123.    Begin VB.Frame Frame1 
  124.       BorderStyle     =   0  'None
  125.       Caption         =   "Frame1"
  126.       Height          =   4500
  127.       Left            =   8280
  128.       TabIndex        =   35
  129.       Top             =   1320
  130.       Visible         =   0   'False
  131.       Width           =   2295
  132.       Begin VB.CommandButton Command13 
  133.          BackColor       =   &H0000C000&
  134.          Caption         =   "Delete Vehicle Type"
  135.          BeginProperty Font 
  136.             Name            =   "MS Sans Serif"
  137.             Size            =   8.25
  138.             Charset         =   0
  139.             Weight          =   700
  140.             Underline       =   0   'False
  141.             Italic          =   0   'False
  142.             Strikethrough   =   0   'False
  143.          EndProperty
  144.          Height          =   375
  145.          Left            =   0
  146.          Style           =   1  'Graphical
  147.          TabIndex        =   37
  148.          Top             =   4130
  149.          Width           =   2295
  150.       End
  151.       Begin VB.ListBox List3 
  152.          Appearance      =   0  'Flat
  153.          BackColor       =   &H00FFFF00&
  154.          Height          =   4125
  155.          ItemData        =   "Form1.frx":8684
  156.          Left            =   0
  157.          List            =   "Form1.frx":8686
  158.          TabIndex        =   36
  159.          Top             =   0
  160.          Width           =   2295
  161.       End
  162.    End
  163.    Begin VB.TextBox Text14 
  164.       Alignment       =   2  'Center
  165.       Appearance      =   0  'Flat
  166.       BackColor       =   &H00FF8080&
  167.       ForeColor       =   &H00FFFFFF&
  168.       Height          =   285
  169.       Left            =   3840
  170.       TabIndex        =   33
  171.       Top             =   1590
  172.       Width           =   1275
  173.    End
  174.    Begin VB.CommandButton Command9 
  175.       Caption         =   "Command9"
  176.       Height          =   375
  177.       Left            =   7800
  178.       TabIndex        =   32
  179.       Top             =   7800
  180.       Visible         =   0   'False
  181.       Width           =   1575
  182.    End
  183.    Begin VB.PictureBox Picture1 
  184.       Appearance      =   0  'Flat
  185.       BackColor       =   &H00FFFF00&
  186.       ForeColor       =   &H80000008&
  187.       Height          =   4415
  188.       Left            =   8520
  189.       ScaleHeight     =   4380
  190.       ScaleWidth      =   2145
  191.       TabIndex        =   22
  192.       Top             =   1545
  193.       Width           =   2175
  194.       Begin VB.CommandButton Command12 
  195.          BackColor       =   &H00808080&
  196.          Caption         =   "Move to Billing Section"
  197.          BeginProperty Font 
  198.             Name            =   "MS Sans Serif"
  199.             Size            =   8.25
  200.             Charset         =   0
  201.             Weight          =   700
  202.             Underline       =   0   'False
  203.             Italic          =   0   'False
  204.             Strikethrough   =   0   'False
  205.          EndProperty
  206.          Height          =   615
  207.          Left            =   120
  208.          Style           =   1  'Graphical
  209.          TabIndex        =   30
  210.          Top             =   3120
  211.          Width           =   1815
  212.       End
  213.       Begin VB.CommandButton Command11 
  214.          BackColor       =   &H00808080&
  215.          Caption         =   "Reset Numbers"
  216.          Enabled         =   0   'False
  217.          BeginProperty Font 
  218.             Name            =   "MS Sans Serif"
  219.             Size            =   8.25
  220.             Charset         =   0
  221.             Weight          =   700
  222.             Underline       =   0   'False
  223.             Italic          =   0   'False
  224.             Strikethrough   =   0   'False
  225.          EndProperty
  226.          Height          =   375
  227.          Left            =   120
  228.          Style           =   1  'Graphical
  229.          TabIndex        =   29
  230.          Top             =   2160
  231.          Width           =   1815
  232.       End
  233.       Begin VB.CommandButton Command10 
  234.          BackColor       =   &H00808080&
  235.          Caption         =   "Print Bill"
  236.          Enabled         =   0   'False
  237.          BeginProperty Font 
  238.             Name            =   "MS Sans Serif"
  239.             Size            =   8.25
  240.             Charset         =   0
  241.             Weight          =   700
  242.             Underline       =   0   'False
  243.             Italic          =   0   'False
  244.             Strikethrough   =   0   'False
  245.          EndProperty
  246.          Height          =   375
  247.          Left            =   120
  248.          Style           =   1  'Graphical
  249.          TabIndex        =   28
  250.          Top             =   2640
  251.          Width           =   1815
  252.       End
  253.       Begin VB.CommandButton Command1 
  254.          BackColor       =   &H00808080&
  255.          Caption         =   "Save"
  256.          BeginProperty Font 
  257.             Name            =   "MS Sans Serif"
  258.             Size            =   8.25
  259.             Charset         =   0
  260.             Weight          =   700
  261.             Underline       =   0   'False
  262.             Italic          =   0   'False
  263.             Strikethrough   =   0   'False
  264.          EndProperty
  265.          Height          =   375
  266.          Left            =   120
  267.          Style           =   1  'Graphical
  268.          TabIndex        =   27
  269.          Top             =   600
  270.          Width           =   1815
  271.       End
  272.       Begin VB.CommandButton Command2 
  273.          BackColor       =   &H000000FF&
  274.          Caption         =   "Delete"
  275.          BeginProperty Font 
  276.             Name            =   "MS Sans Serif"
  277.             Size            =   8.25
  278.             Charset         =   0
  279.             Weight          =   700
  280.             Underline       =   0   'False
  281.             Italic          =   0   'False
  282.             Strikethrough   =   0   'False
  283.          EndProperty
  284.          Height          =   375
  285.          Left            =   120
  286.          Style           =   1  'Graphical
  287.          TabIndex        =   26
  288.          Top             =   3840
  289.          Width           =   1815
  290.       End
  291.       Begin VB.CommandButton Command4 
  292.          BackColor       =   &H00808080&
  293.          Caption         =   "Exit"
  294.          BeginProperty Font 
  295.             Name            =   "MS Sans Serif"
  296.             Size            =   8.25
  297.             Charset         =   0
  298.             Weight          =   700
  299.             Underline       =   0   'False
  300.             Italic          =   0   'False
  301.             Strikethrough   =   0   'False
  302.          EndProperty
  303.          Height          =   375
  304.          Left            =   120
  305.          Style           =   1  'Graphical
  306.          TabIndex        =   25
  307.          Top             =   120
  308.          Width           =   1815
  309.       End
  310.       Begin VB.CommandButton Command5 
  311.          BackColor       =   &H00808080&
  312.          Caption         =   "Blank"
  313.          BeginProperty Font 
  314.             Name            =   "MS Sans Serif"
  315.             Size            =   8.25
  316.             Charset         =   0
  317.             Weight          =   700
  318.             Underline       =   0   'False
  319.             Italic          =   0   'False
  320.             Strikethrough   =   0   'False
  321.          EndProperty
  322.          Height          =   375
  323.          Left            =   120
  324.          Style           =   1  'Graphical
  325.          TabIndex        =   24
  326.          Top             =   1560
  327.          Width           =   1815
  328.       End
  329.       Begin VB.CommandButton Command6 
  330.          BackColor       =   &H00808080&
  331.          Caption         =   "Edit"
  332.          BeginProperty Font 
  333.             Name            =   "MS Sans Serif"
  334.             Size            =   8.25
  335.             Charset         =   0
  336.             Weight          =   700
  337.             Underline       =   0   'False
  338.             Italic          =   0   'False
  339.             Strikethrough   =   0   'False
  340.          EndProperty
  341.          Height          =   375
  342.          Left            =   120
  343.          Style           =   1  'Graphical
  344.          TabIndex        =   23
  345.          Top             =   1080
  346.          Width           =   1815
  347.       End
  348.    End
  349.    Begin VB.CommandButton Command8 
  350.       BackColor       =   &H00808080&
  351.       Caption         =   "Go ->"
  352.       Height          =   300
  353.       Left            =   9840
  354.       Style           =   1  'Graphical
  355.       TabIndex        =   21
  356.       Top             =   480
  357.       Width           =   615
  358.    End
  359.    Begin VB.ComboBox Combo1 
  360.       Appearance      =   0  'Flat
  361.       BackColor       =   &H00FFFF00&
  362.       Height          =   315
  363.       ItemData        =   "Form1.frx":8688
  364.       Left            =   7320
  365.       List            =   "Form1.frx":8695
  366.       TabIndex        =   20
  367.       Top             =   480
  368.       Width           =   2535
  369.    End
  370.    Begin VB.TextBox Text13 
  371.       Alignment       =   2  'Center
  372.       Appearance      =   0  'Flat
  373.       BackColor       =   &H00FFFF00&
  374.       Height          =   285
  375.       Left            =   4800
  376.       TabIndex        =   17
  377.       Top             =   480
  378.       Width           =   1755
  379.    End
  380.    Begin VB.CommandButton Command7 
  381.       BackColor       =   &H00808080&
  382.       Caption         =   "..."
  383.       Height          =   255
  384.       Left            =   5760
  385.       Style           =   1  'Graphical
  386.       TabIndex        =   16
  387.       ToolTipText     =   "Click for Present Time"
  388.       Top             =   2040
  389.       Width           =   255
  390.    End
  391.    Begin VB.TextBox Text12 
  392.       Alignment       =   2  'Center
  393.       Appearance      =   0  'Flat
  394.       BackColor       =   &H00FFFF00&
  395.       Height          =   285
  396.       Left            =   8280
  397.       TabIndex        =   15
  398.       Top             =   960
  399.       Width           =   2190
  400.    End
  401.    Begin VB.TextBox Text11 
  402.       Alignment       =   2  'Center
  403.       Appearance      =   0  'Flat
  404.       BackColor       =   &H00FFFF00&
  405.       Height          =   285
  406.       Left            =   4800
  407.       TabIndex        =   0
  408.       Top             =   960
  409.       Width           =   1755
  410.    End
  411.    Begin VB.TextBox Text10 
  412.       Alignment       =   2  'Center
  413.       Appearance      =   0  'Flat
  414.       BackColor       =   &H00FF8080&
  415.       ForeColor       =   &H00FFFFFF&
  416.       Height          =   285
  417.       Left            =   1560
  418.       TabIndex        =   11
  419.       Top             =   1590
  420.       Width           =   1275
  421.    End
  422.    Begin VB.Timer Timer1 
  423.       Interval        =   100
  424.       Left            =   0
  425.       Top             =   4920
  426.    End
  427.    Begin VB.TextBox Text9 
  428.       Appearance      =   0  'Flat
  429.       BackColor       =   &H00FFFF00&
  430.       Height          =   285
  431.       Left            =   6960
  432.       TabIndex        =   7
  433.       Top             =   2040
  434.       Width           =   1275
  435.    End
  436.    Begin VB.TextBox Text8 
  437.       Appearance      =   0  'Flat
  438.       BackColor       =   &H00FFFF00&
  439.       Height          =   285
  440.       Left            =   4560
  441.       TabIndex        =   6
  442.       Top             =   2040
  443.       Width           =   1155
  444.    End
  445.    Begin VB.ListBox List2 
  446.       Appearance      =   0  'Flat
  447.       BackColor       =   &H00FFFF00&
  448.       Height          =   3540
  449.       Left            =   1320
  450.       TabIndex        =   3
  451.       Top             =   2400
  452.       Width           =   2055
  453.    End
  454.    Begin VB.ListBox List1 
  455.       Appearance      =   0  'Flat
  456.       BackColor       =   &H00FFFF00&
  457.       Height          =   3540
  458.       Left            =   240
  459.       TabIndex        =   2
  460.       Top             =   2400
  461.       Width           =   1095
  462.    End
  463.    Begin VB.CommandButton Command3 
  464.       Caption         =   "Restore Deleted"
  465.       BeginProperty Font 
  466.          Name            =   "MS Sans Serif"
  467.          Size            =   8.25
  468.          Charset         =   0
  469.          Weight          =   700
  470.          Underline       =   0   'False
  471.          Italic          =   0   'False
  472.          Strikethrough   =   0   'False
  473.       EndProperty
  474.       Height          =   375
  475.       Left            =   11900
  476.       TabIndex        =   1
  477.       Top             =   5880
  478.       Width           =   1695
  479.    End
  480.    Begin MSComctlLib.ListView List 
  481.       Height          =   1695
  482.       Left            =   1560
  483.       TabIndex        =   31
  484.       Top             =   7320
  485.       Visible         =   0   'False
  486.       Width           =   5775
  487.       _ExtentX        =   10186
  488.       _ExtentY        =   2990
  489.       View            =   3
  490.       MultiSelect     =   -1  'True
  491.       LabelWrap       =   -1  'True
  492.       HideSelection   =   -1  'True
  493.       FullRowSelect   =   -1  'True
  494.       GridLines       =   -1  'True
  495.       HoverSelection  =   -1  'True
  496.       _Version        =   393217
  497.       ForeColor       =   -2147483640
  498.       BackColor       =   8421376
  499.       BorderStyle     =   1
  500.       Appearance      =   0
  501.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  502.          Name            =   "Arial"
  503.          Size            =   8.25
  504.          Charset         =   0
  505.          Weight          =   400
  506.          Underline       =   0   'False
  507.          Italic          =   0   'False
  508.          Strikethrough   =   0   'False
  509.       EndProperty
  510.       NumItems        =   3
  511.       BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  512.          Text            =   "Sl."
  513.          Object.Width           =   1129
  514.       EndProperty
  515.       BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  516.          SubItemIndex    =   1
  517.          Text            =   "Description"
  518.          Object.Width           =   6703
  519.       EndProperty
  520.       BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
  521.          Alignment       =   1
  522.          SubItemIndex    =   2
  523.          Text            =   "Amount"
  524.          Object.Width           =   1834
  525.       EndProperty
  526.    End
  527.    Begin RichTextLib.RichTextBox RT1 
  528.       Height          =   285
  529.       Left            =   3960
  530.       TabIndex        =   45
  531.       Top             =   3120
  532.       Width           =   2895
  533.       _ExtentX        =   5106
  534.       _ExtentY        =   503
  535.       _Version        =   393217
  536.       BackColor       =   12632256
  537.       BorderStyle     =   0
  538.       Enabled         =   -1  'True
  539.       Appearance      =   0
  540.       TextRTF         =   $"Form1.frx":86BE
  541.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  542.          Name            =   "MS Sans Serif"
  543.          Size            =   8.25
  544.          Charset         =   0
  545.          Weight          =   700
  546.          Underline       =   0   'False
  547.          Italic          =   0   'False
  548.          Strikethrough   =   0   'False
  549.       EndProperty
  550.    End
  551.    Begin RichTextLib.RichTextBox RT2 
  552.       Height          =   285
  553.       Left            =   3960
  554.       TabIndex        =   46
  555.       Top             =   3480
  556.       Width           =   2895
  557.       _ExtentX        =   5106
  558.       _ExtentY        =   503
  559.       _Version        =   393217
  560.       BackColor       =   12632256
  561.       BorderStyle     =   0
  562.       Enabled         =   -1  'True
  563.       Appearance      =   0
  564.       TextRTF         =   $"Form1.frx":874D
  565.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  566.          Name            =   "MS Sans Serif"
  567.          Size            =   8.25
  568.          Charset         =   0
  569.          Weight          =   700
  570.          Underline       =   0   'False
  571.          Italic          =   0   'False
  572.          Strikethrough   =   0   'False
  573.       EndProperty
  574.    End
  575.    Begin RichTextLib.RichTextBox ReT3 
  576.       Height          =   285
  577.       Left            =   3960
  578.       TabIndex        =   47
  579.       Top             =   3840
  580.       Width           =   2895
  581.       _ExtentX        =   5106
  582.       _ExtentY        =   503
  583.       _Version        =   393217
  584.       BackColor       =   12632256
  585.       BorderStyle     =   0
  586.       MultiLine       =   0   'False
  587.       Appearance      =   0
  588.       TextRTF         =   $"Form1.frx":87DC
  589.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  590.          Name            =   "MS Sans Serif"
  591.          Size            =   8.25
  592.          Charset         =   0
  593.          Weight          =   700
  594.          Underline       =   0   'False
  595.          Italic          =   0   'False
  596.          Strikethrough   =   0   'False
  597.       EndProperty
  598.    End
  599.    Begin RichTextLib.RichTextBox ReT4 
  600.       Height          =   285
  601.       Left            =   3960
  602.       TabIndex        =   48
  603.       Top             =   4200
  604.       Width           =   2895
  605.       _ExtentX        =   5106
  606.       _ExtentY        =   503
  607.       _Version        =   393217
  608.       BackColor       =   12632256
  609.       BorderStyle     =   0
  610.       MultiLine       =   0   'False
  611.       Appearance      =   0
  612.       TextRTF         =   $"Form1.frx":8867
  613.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  614.          Name            =   "MS Sans Serif"
  615.          Size            =   8.25
  616.          Charset         =   0
  617.          Weight          =   700
  618.          Underline       =   0   'False
  619.          Italic          =   0   'False
  620.          Strikethrough   =   0   'False
  621.       EndProperty
  622.    End
  623.    Begin RichTextLib.RichTextBox ReT5 
  624.       Height          =   285
  625.       Left            =   3960
  626.       TabIndex        =   49
  627.       Top             =   4560
  628.       Width           =   2895
  629.       _ExtentX        =   5106
  630.       _ExtentY        =   503
  631.       _Version        =   393217
  632.       BackColor       =   12632256
  633.       BorderStyle     =   0
  634.       MultiLine       =   0   'False
  635.       Appearance      =   0
  636.       TextRTF         =   $"Form1.frx":88F6
  637.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  638.          Name            =   "MS Sans Serif"
  639.          Size            =   8.25
  640.          Charset         =   0
  641.          Weight          =   700
  642.          Underline       =   0   'False
  643.          Italic          =   0   'False
  644.          Strikethrough   =   0   'False
  645.       EndProperty
  646.    End
  647.    Begin RichTextLib.RichTextBox ReT6 
  648.       Height          =   285
  649.       Left            =   3960
  650.       TabIndex        =   50
  651.       Top             =   4920
  652.       Width           =   2895
  653.       _ExtentX        =   5106
  654.       _ExtentY        =   503
  655.       _Version        =   393217
  656.       BackColor       =   12632256
  657.       BorderStyle     =   0
  658.       MultiLine       =   0   'False
  659.       Appearance      =   0
  660.       TextRTF         =   $"Form1.frx":8982
  661.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  662.          Name            =   "MS Sans Serif"
  663.          Size            =   8.25
  664.          Charset         =   0
  665.          Weight          =   700
  666.          Underline       =   0   'False
  667.          Italic          =   0   'False
  668.          Strikethrough   =   0   'False
  669.       EndProperty
  670.    End
  671.    Begin RichTextLib.RichTextBox RT7 
  672.       Height          =   285
  673.       Left            =   3960
  674.       TabIndex        =   51
  675.       Top             =   5400
  676.       Width           =   2895
  677.       _ExtentX        =   5106
  678.       _ExtentY        =   503
  679.       _Version        =   393217
  680.       BackColor       =   12632256
  681.       BorderStyle     =   0
  682.       Enabled         =   -1  'True
  683.       Appearance      =   0
  684.       TextRTF         =   $"Form1.frx":8A0F
  685.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  686.          Name            =   "MS Sans Serif"
  687.          Size            =   8.25
  688.          Charset         =   0
  689.          Weight          =   700
  690.          Underline       =   0   'False
  691.          Italic          =   0   'False
  692.          Strikethrough   =   0   'False
  693.       EndProperty
  694.    End
  695.    Begin RichTextLib.RichTextBox RichTextBox1 
  696.       Height          =   285
  697.       Left            =   3600
  698.       TabIndex        =   58
  699.       Top             =   2760
  700.       Width           =   1575
  701.       _ExtentX        =   2778
  702.       _ExtentY        =   503
  703.       _Version        =   393217
  704.       BackColor       =   12632256
  705.       BorderStyle     =   0
  706.       Appearance      =   0
  707.       TextRTF         =   $"Form1.frx":8ABA
  708.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  709.          Name            =   "MS Sans Serif"
  710.          Size            =   8.25
  711.          Charset         =   0
  712.          Weight          =   700
  713.          Underline       =   0   'False
  714.          Italic          =   0   'False
  715.          Strikethrough   =   0   'False
  716.       EndProperty
  717.    End
  718.    Begin VB.Label Label1 
  719.       BackStyle       =   0  'Transparent
  720.       Caption         =   "6"
  721.       BeginProperty Font 
  722.          Name            =   "MS Sans Serif"
  723.          Size            =   8.25
  724.          Charset         =   0
  725.          Weight          =   700
  726.          Underline       =   0   'False
  727.          Italic          =   0   'False
  728.          Strikethrough   =   0   'False
  729.       EndProperty
  730.       Height          =   375
  731.       Index           =   5
  732.       Left            =   3600
  733.       TabIndex        =   57
  734.       Top             =   4920
  735.       Width           =   495
  736.    End
  737.    Begin VB.Label Label1 
  738.       BackStyle       =   0  'Transparent
  739.       Caption         =   "5"
  740.       BeginProperty Font 
  741.          Name            =   "MS Sans Serif"
  742.          Size            =   8.25
  743.          Charset         =   0
  744.          Weight          =   700
  745.          Underline       =   0   'False
  746.          Italic          =   0   'False
  747.          Strikethrough   =   0   'False
  748.       EndProperty
  749.       Height          =   375
  750.       Index           =   4
  751.       Left            =   3600
  752.       TabIndex        =   56
  753.       Top             =   4560
  754.       Width           =   495
  755.    End
  756.    Begin VB.Label Label1 
  757.       BackStyle       =   0  'Transparent
  758.       Caption         =   "4"
  759.       BeginProperty Font 
  760.          Name            =   "MS Sans Serif"
  761.          Size            =   8.25
  762.          Charset         =   0
  763.          Weight          =   700
  764.          Underline       =   0   'False
  765.          Italic          =   0   'False
  766.          Strikethrough   =   0   'False
  767.       EndProperty
  768.       Height          =   375
  769.       Index           =   3
  770.       Left            =   3600
  771.       TabIndex        =   55
  772.       Top             =   4200
  773.       Width           =   495
  774.    End
  775.    Begin VB.Label Label1 
  776.       BackStyle       =   0  'Transparent
  777.       Caption         =   "3"
  778.       BeginProperty Font 
  779.          Name            =   "MS Sans Serif"
  780.          Size            =   8.25
  781.          Charset         =   0
  782.          Weight          =   700
  783.          Underline       =   0   'False
  784.          Italic          =   0   'False
  785.          Strikethrough   =   0   'False
  786.       EndProperty
  787.       Height          =   375
  788.       Index           =   2
  789.       Left            =   3600
  790.       TabIndex        =   54
  791.       Top             =   3840
  792.       Width           =   495
  793.    End
  794.    Begin VB.Label Label1 
  795.       BackStyle       =   0  'Transparent
  796.       Caption         =   "2"
  797.       BeginProperty Font 
  798.          Name            =   "MS Sans Serif"
  799.          Size            =   8.25
  800.          Charset         =   0
  801.          Weight          =   700
  802.          Underline       =   0   'False
  803.          Italic          =   0   'False
  804.          Strikethrough   =   0   'False
  805.       EndProperty
  806.       Height          =   375
  807.       Index           =   1
  808.       Left            =   3600
  809.       TabIndex        =   53
  810.       Top             =   3480
  811.       Width           =   495
  812.    End
  813.    Begin VB.Label Label1 
  814.       BackStyle       =   0  'Transparent
  815.       Caption         =   "1"
  816.       BeginProperty Font 
  817.          Name            =   "MS Sans Serif"
  818.          Size            =   8.25
  819.          Charset         =   0
  820.          Weight          =   700
  821.          Underline       =   0   'False
  822.          Italic          =   0   'False
  823.          Strikethrough   =   0   'False
  824.       EndProperty
  825.       Height          =   375
  826.       Index           =   0
  827.       Left            =   3600
  828.       TabIndex        =   52
  829.       Top             =   3120
  830.       Width           =   495
  831.    End
  832.    Begin VB.Shape Shape4 
  833.       BorderColor     =   &H00404040&
  834.       BorderWidth     =   2
  835.       Height          =   1215
  836.       Left            =   3480
  837.       Top             =   240
  838.       Width           =   7215
  839.    End
  840.    Begin VB.Shape Shape3 
  841.       Height          =   6255
  842.       Left            =   0
  843.       Top             =   0
  844.       Width           =   10935
  845.    End
  846.    Begin VB.Shape Shape2 
  847.       BorderColor     =   &H00404040&
  848.       BorderWidth     =   2
  849.       Height          =   1215
  850.       Left            =   240
  851.       Top             =   240
  852.       Width           =   3135
  853.    End
  854.    Begin VB.Label Label1 
  855.       BackStyle       =   0  'Transparent
  856.       Caption         =   "Bill No."
  857.       BeginProperty Font 
  858.          Name            =   "MS Sans Serif"
  859.          Size            =   8.25
  860.          Charset         =   0
  861.          Weight          =   700
  862.          Underline       =   0   'False
  863.          Italic          =   0   'False
  864.          Strikethrough   =   0   'False
  865.       EndProperty
  866.       ForeColor       =   &H00FFFFFF&
  867.       Height          =   255
  868.       Index           =   16
  869.       Left            =   3120
  870.       TabIndex        =   34
  871.       Top             =   1605
  872.       Width           =   735
  873.    End
  874.    Begin VB.Label Label1 
  875.       BackStyle       =   0  'Transparent
  876.       Caption         =   "By"
  877.       BeginProperty Font 
  878.          Name            =   "MS Sans Serif"
  879.          Size            =   8.25
  880.          Charset         =   0
  881.          Weight          =   700
  882.          Underline       =   0   'False
  883.          Italic          =   0   'False
  884.          Strikethrough   =   0   'False
  885.       EndProperty
  886.       Height          =   255
  887.       Index           =   15
  888.       Left            =   6840
  889.       TabIndex        =   19
  890.       Top             =   480
  891.       Width           =   495
  892.    End
  893.    Begin VB.Label Label1 
  894.       BackStyle       =   0  'Transparent
  895.       Caption         =   "Searching"
  896.       BeginProperty Font 
  897.          Name            =   "MS Sans Serif"
  898.          Size            =   8.25
  899.          Charset         =   0
  900.          Weight          =   700
  901.          Underline       =   0   'False
  902.          Italic          =   0   'False
  903.          Strikethrough   =   0   'False
  904.       EndProperty
  905.       Height          =   255
  906.       Index           =   14
  907.       Left            =   3720
  908.       TabIndex        =   18
  909.       Top             =   480
  910.       Width           =   1095
  911.    End
  912.    Begin VB.Label Label1 
  913.       BackStyle       =   0  'Transparent
  914.       Caption         =   "Type of Vehicle "
  915.       BeginProperty Font 
  916.          Name            =   "MS Sans Serif"
  917.          Size            =   8.25
  918.          Charset         =   0
  919.          Weight          =   700
  920.          Underline       =   0   'False
  921.          Italic          =   0   'False
  922.          Strikethrough   =   0   'False
  923.       EndProperty
  924.       Height          =   255
  925.       Index           =   13
  926.       Left            =   6840
  927.       TabIndex        =   14
  928.       Top             =   960
  929.       Width           =   1575
  930.    End
  931.    Begin VB.Label Label1 
  932.       BackStyle       =   0  'Transparent
  933.       Caption         =   "Vehicle No."
  934.       BeginProperty Font 
  935.          Name            =   "MS Sans Serif"
  936.          Size            =   8.25
  937.          Charset         =   0
  938.          Weight          =   700
  939.          Underline       =   0   'False
  940.          Italic          =   0   'False
  941.          Strikethrough   =   0   'False
  942.       EndProperty
  943.       Height          =   255
  944.       Index           =   12
  945.       Left            =   3720
  946.       TabIndex        =   13
  947.       Top             =   975
  948.       Width           =   1095
  949.    End
  950.    Begin VB.Label Label1 
  951.       BackStyle       =   0  'Transparent
  952.       Caption         =   "Job Card No."
  953.       BeginProperty Font 
  954.          Name            =   "MS Sans Serif"
  955.          Size            =   8.25
  956.          Charset         =   0
  957.          Weight          =   700
  958.          Underline       =   0   'False
  959.          Italic          =   0   'False
  960.          Strikethrough   =   0   'False
  961.       EndProperty
  962.       ForeColor       =   &H00FFFFFF&
  963.       Height          =   255
  964.       Index           =   11
  965.       Left            =   360
  966.       TabIndex        =   12
  967.       Top             =   1605
  968.       Width           =   1215
  969.    End
  970.    Begin VB.Shape Shape1 
  971.       Height          =   390
  972.       Index           =   4
  973.       Left            =   240
  974.       Top             =   1545
  975.       Width           =   8175
  976.    End
  977.    Begin VB.Label Label1 
  978.       Alignment       =   1  'Right Justify
  979.       BackColor       =   &H00400000&
  980.       Caption         =   "Service Centre Entry   "
  981.       BeginProperty Font 
  982.          Name            =   "MS Sans Serif"
  983.          Size            =   13.5
  984.          Charset         =   0
  985.          Weight          =   700
  986.          Underline       =   0   'False
  987.          Italic          =   0   'False
  988.          Strikethrough   =   0   'False
  989.       EndProperty
  990.       ForeColor       =   &H00FFFFFF&
  991.       Height          =   375
  992.       Index           =   10
  993.       Left            =   240
  994.       TabIndex        =   10
  995.       Top             =   1545
  996.       Width           =   8175
  997.    End
  998.    Begin VB.Label Label1 
  999.       BackStyle       =   0  'Transparent
  1000.       Caption         =   "Entry Time"
  1001.       BeginProperty Font 
  1002.          Name            =   "MS Sans Serif"
  1003.          Size            =   8.25
  1004.          Charset         =   0
  1005.          Weight          =   700
  1006.          Underline       =   0   'False
  1007.          Italic          =   0   'False
  1008.          Strikethrough   =   0   'False
  1009.       EndProperty
  1010.       Height          =   375
  1011.       Index           =   9
  1012.       Left            =   3600
  1013.       TabIndex        =   9
  1014.       Top             =   2040
  1015.       Width           =   975
  1016.    End
  1017.    Begin VB.Label Label1 
  1018.       BackStyle       =   0  'Transparent
  1019.       Caption         =   "Exit Time"
  1020.       BeginProperty Font 
  1021.          Name            =   "MS Sans Serif"
  1022.          Size            =   8.25
  1023.          Charset         =   0
  1024.          Weight          =   700
  1025.          Underline       =   0   'False
  1026.          Italic          =   0   'False
  1027.          Strikethrough   =   0   'False
  1028.       EndProperty
  1029.       Height          =   255
  1030.       Index           =   8
  1031.       Left            =   6120
  1032.       TabIndex        =   8
  1033.       Top             =   2040
  1034.       Width           =   975
  1035.    End
  1036.    Begin VB.Shape Shape1 
  1037.       Height          =   495
  1038.       Index           =   3
  1039.       Left            =   3360
  1040.       Top             =   1920
  1041.       Width           =   5055
  1042.    End
  1043.    Begin VB.Shape Shape1 
  1044.       Height          =   3540
  1045.       Index           =   2
  1046.       Left            =   3360
  1047.       Top             =   2400
  1048.       Width           =   5055
  1049.    End
  1050.    Begin VB.Shape Shape1 
  1051.       Height          =   495
  1052.       Index           =   1
  1053.       Left            =   1320
  1054.       Top             =   1920
  1055.       Width           =   2055
  1056.    End
  1057.    Begin VB.Shape Shape1 
  1058.       Height          =   495
  1059.       Index           =   0
  1060.       Left            =   240
  1061.       Top             =   1920
  1062.       Width           =   1095
  1063.    End
  1064.    Begin VB.Label Label1 
  1065.       Alignment       =   2  'Center
  1066.       BackStyle       =   0  'Transparent
  1067.       Caption         =   "Job Card"
  1068.       BeginProperty Font 
  1069.          Name            =   "MS Sans Serif"
  1070.          Size            =   8.25
  1071.          Charset         =   0
  1072.          Weight          =   700
  1073.          Underline       =   0   'False
  1074.          Italic          =   0   'False
  1075.          Strikethrough   =   0   'False
  1076.       EndProperty
  1077.       Height          =   495
  1078.       Index           =   7
  1079.       Left            =   285
  1080.       TabIndex        =   5
  1081.       Top             =   1995
  1082.       Width           =   735
  1083.    End
  1084.    Begin VB.Label Label1 
  1085.       Alignment       =   2  'Center
  1086.       BackStyle       =   0  'Transparent
  1087.       Caption         =   "Vehicle No"
  1088.       BeginProperty Font 
  1089.          Name            =   "MS Sans Serif"
  1090.          Size            =   8.25
  1091.          Charset         =   0
  1092.          Weight          =   700
  1093.          Underline       =   0   'False
  1094.          Italic          =   0   'False
  1095.          Strikethrough   =   0   'False
  1096.       EndProperty
  1097.       Height          =   255
  1098.       Index           =   6
  1099.       Left            =   1320
  1100.       TabIndex        =   4
  1101.       Top             =   1995
  1102.       Width           =   2055
  1103.    End
  1104.    Begin VB.Menu MnuFile 
  1105.       Caption         =   "File"
  1106.       Begin VB.Menu MnuAddVehicle 
  1107.          Caption         =   "Add Vehicle Type"
  1108.       End
  1109.       Begin VB.Menu a 
  1110.          Caption         =   "-"
  1111.       End
  1112.       Begin VB.Menu exit 
  1113.          Caption         =   "Exit"
  1114.       End
  1115.    End
  1116. End
  1117. Attribute VB_Name = "Form1"
  1118. Attribute VB_GlobalNameSpace = False
  1119. Attribute VB_Creatable = False
  1120. Attribute VB_PredeclaredId = True
  1121. Attribute VB_Exposed = False
  1122. '/////////////////////////////////////////////////////////////////////////////
  1123. '/////////////////////////////////////////////////////////////////////////////
  1124. '////                                                                    /////
  1125. '////     Developer: Shyam Singh Chandel                                 /////
  1126. '////     Jr. Technician (United News of India, Shillong)                /////
  1127. '////     URL http://tech.groups.yahoo.com/group/ssc_visual_basic/       /////
  1128. '////                                                                    /////
  1129. '/////////////////////////////////////////////////////////////////////////////
  1130. '/////////////////////////////////////////////////////////////////////////////
  1131.  
  1132. 'developer: Shyam Singh Chandel < shyamschandel@rediffmail.com >
  1133. Dim M As ListViewPrinter
  1134.  
  1135.  
  1136. Private Sub Command1_Click()
  1137.  
  1138. LOADJOBCARDNO
  1139. Text8 = Format(Time, "hh:mm AM/PM")
  1140. Dim RS As New Recordset
  1141.  RS.Open "SELECT * FROM USSC", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1142.  RS.AddNew
  1143.           RS!ServiceNo = Text10.Text
  1144.           RS!typeofVehicle = Text12.Text
  1145.           RS!NOC = Text15.Text
  1146.           RS!VNo = Text11.Text
  1147.           RS!EntryTime = Text8.Text
  1148.           RS!FullServiceAmt = Text1.Text
  1149.           RS!HalfServiceAmt = Text2.Text
  1150.           RS!UnderSideAmt = Text3.Text
  1151.           RS!EngineWashingAmt = Text4.Text
  1152.           RS!WaterSprayAmt = Text5.Text
  1153.           RS!GelingWashAmt = Text6.Text
  1154.           RS!UnderSide = ReT3.Text
  1155.           RS!EngineWashing = ReT4.Text
  1156.           RS!WaterSpray = ReT5.Text
  1157.           RS!GelingWash = ReT6.Text
  1158.           RS!amount = Text7.Text
  1159.           RS!PrintStatus = "NOT DONE"
  1160.    RS.Update
  1161.   SaveJOBCARDNO
  1162.   MsgBox "Record has been saved"
  1163.    RS.Close
  1164.    BlankFields
  1165.    List1.Clear
  1166.    List2.Clear
  1167.   load
  1168. End Sub
  1169.  
  1170.  
  1171. Private Sub Command10_Click()
  1172. PrintingBILL
  1173. End Sub
  1174.  
  1175. Private Sub Command11_Click()
  1176. Dim RSc As New Recordset
  1177. RSc.Open "SELECT * FROM NUMBERS", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1178.         RSc.AddNew
  1179.               RSc!BillNo = 0
  1180.               RSc!JobCard = 0
  1181.               RSc!RecNo = 0
  1182.         RSc.Update
  1183.         RSc.Close
  1184.         MsgBox "done"
  1185. End Sub
  1186.  
  1187. Private Sub Command12_Click()
  1188. Dim RS As New Recordset
  1189.         RS.Open "SELECT * FROM USSC where ServiceNo='" & Text10.Text & "' AND VNo='" & Text11.Text & "'", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1190.                 currentMode = EditMode
  1191.                    RS!PrintStatus = "DONE"
  1192.                    RS!PrintBILL = "NOT DONE"
  1193.                 RS.Update
  1194.                 MsgBox "RECORD MOVED TO BILLING SECTION."
  1195.                 load
  1196.                 
  1197.  
  1198. End Sub
  1199.  
  1200.  
  1201.  
  1202. Private Sub Command13_Click()
  1203. On Error Resume Next
  1204. Dim RSJO As New Recordset
  1205.  RSJO.Open "SELECT * FROM Vehicle", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1206.       RSJO.Delete
  1207.   RSJO.Close
  1208.   loadVehicle
  1209. End Sub
  1210.  
  1211. Private Sub Command2_Click()
  1212. ins = MsgBox("Are you sure to delete record", vbQuestion + vbYesNo)
  1213. If ins = vbYes Then
  1214. Dim RS As New Recordset
  1215. RS.Open "SELECT * FROM USSC where ServiceNo='" & Text10.Text & "'", Connect, adOpenStatic, adLockOptimistic
  1216.    RS.Delete
  1217.   MsgBox "Record has been deleted"
  1218.   Command5_Click
  1219.   RS.Close
  1220. List1.Clear
  1221. List2.Clear
  1222. load
  1223. Else
  1224. Exit Sub
  1225. End If
  1226.  
  1227. End Sub
  1228.  
  1229. Private Sub Command4_Click()
  1230. Unload Me
  1231. End Sub
  1232.  
  1233. Private Sub Command5_Click()
  1234. BlankFields
  1235. End Sub
  1236.  
  1237. Private Sub Command6_Click()
  1238.         Dim RS As New Recordset
  1239.         RS.Open "SELECT * FROM USSC WHERE ServiceNo='" & Text10.Text & "' AND VNo='" & Text11.Text & "'", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1240.         currentMode = EditMode
  1241.               RS!typeofVehicle = Text12.Text
  1242.               RS!FullServiceAmt = Text1.Text
  1243.               RS!NOC = Text15.Text
  1244.               RS!HalfServiceAmt = Text2.Text
  1245.               RS!UnderSideAmt = Text3.Text
  1246.               RS!EngineWashingAmt = Text4.Text
  1247.               RS!WaterSprayAmt = Text5.Text
  1248.               RS!GelingWashAmt = Text6.Text
  1249.               RS!UnderSide = ReT3.Text
  1250.               RS!EngineWashing = ReT4.Text
  1251.               RS!WaterSpray = ReT5.Text
  1252.               RS!GelingWash = ReT6.Text
  1253.               RS!amount = Text7.Text
  1254.         RS.Update
  1255.         MsgBox "RECORD HAS BEEN EDITED"
  1256.         RS.Close
  1257. End Sub
  1258.  
  1259. Private Sub Command7_Click()
  1260. Text8 = Format(Time, "hh:mm AM/PM")
  1261. End Sub
  1262.  
  1263. Private Sub Command8_Click()
  1264.         On Error Resume Next
  1265.         List1.Clear
  1266.         List2.Clear
  1267.         Dim SQL As String
  1268.         If Combo1.Text = "Job Card" Then
  1269.         SQL = "SELECT * FROM [" & "USSC" & "]  where [" & "Serviceno" & "]" & "LIKE '%" & Text13.Text & "%' and PrintStatus='" & "NOT DONE" & "'"        ' AND PRINT='" & "DONE" & "'"   'Initial SQL Statement  modified by Shyam Singh Chandel on 19-11-2006 at 8.00 AM
  1270.         ElseIf Combo1.Text = "Vehicle No" Then
  1271.         SQL = "SELECT * FROM [" & "USSC" & "]  where [" & "VNo" & "]" & "LIKE '%" & Text13.Text & "%' and PrintStatus='" & "NOT DONE" & "'"        ' AND PRINT='" & "DONE" & "'"   'Initial SQL Statement  modified by Shyam Singh Chandel on 19-11-2006 at 8.00 AM
  1272.         ElseIf Combo1.Text = "Customer Name" Then
  1273.         SQL = "SELECT * FROM [" & "USSC" & "]  where [" & "NOC" & "]" & "LIKE '%" & Text13.Text & "%' and PrintStatus='" & "NOT DONE" & "'"        ' AND PRINT='" & "DONE" & "'"   'Initial SQL Statement  modified by Shyam Singh Chandel on 19-11-2006 at 8.00 AM
  1274.         End If
  1275.         Dim RS As New Recordset
  1276.          RS.Open SQL, Connect, adOpenStatic, adLockOptimistic, adCmdText
  1277.             Do While Not RS.EOF
  1278.               List1.AddItem RS!ServiceNo
  1279.               List2.AddItem RS!VNo
  1280.             RS.MoveNext
  1281.             Loop
  1282.          RS.Close
  1283. End Sub
  1284.  
  1285. Private Sub Command9_Click()
  1286.   List.ListItems.Clear
  1287.   Set itmX = List.ListItems.Add(, "A", "1")
  1288.   itmX.SubItems(1) = RT1.Text
  1289.   itmX.SubItems(2) = Text1.Text
  1290.   
  1291.   Set itmX = List.ListItems.Add(, "B", "2")
  1292.   itmX.SubItems(1) = RT2.Text
  1293.   itmX.SubItems(2) = Text2.Text
  1294.   
  1295.   Set itmX = List.ListItems.Add(, "C", "3")
  1296.   itmX.SubItems(1) = ReT3.Text
  1297.   itmX.SubItems(2) = Text3.Text
  1298.   
  1299.   Set itmX = List.ListItems.Add(, "D", "4")
  1300.   itmX.SubItems(1) = ReT4.Text
  1301.   itmX.SubItems(2) = Text4.Text
  1302.  
  1303.   Set itmX = List.ListItems.Add(, "E", "5")
  1304.   itmX.SubItems(1) = ReT5.Text
  1305.   itmX.SubItems(2) = Text5.Text
  1306.   
  1307.   Set itmX = List.ListItems.Add(, "F", "6")
  1308.   itmX.SubItems(1) = ReT6.Text
  1309.   itmX.SubItems(2) = Text6.Text
  1310.   
  1311.   Set itmX = List.ListItems.Add(, "G", "")
  1312.   itmX.SubItems(1) = "                              Total: "
  1313.   itmX.SubItems(2) = Text7.Text
  1314.   
  1315. End Sub
  1316.  
  1317. Private Sub exit_Click()
  1318. Unload Me
  1319. End Sub
  1320.  
  1321. Private Sub Form_Load()
  1322. 'On Error Resume Next
  1323. Dim itemX As ListItem
  1324. Dim clmx As ColumnHeader
  1325. Dim i As Integer
  1326. Set M = New ListViewPrinter
  1327. Set M.ListViewName = List
  1328. M.DrawHorizontalLines = False
  1329. M.DrawVerticalLines = False
  1330. M.DrawBorder = False
  1331. M.BorderDistance = 2
  1332. M.PosX = 2380    'Value in Twips
  1333. M.PosY = 3430  'Value in Twips
  1334. M.HasPicture = True
  1335. Text8 = Format(Time, "hh:mm AM/PM")
  1336. load
  1337. LOADJOBCARDNO
  1338. LOADBILLNO
  1339. loadVehicle
  1340. ReT3.LoadFile App.Path & "\RT3.dll"
  1341. ReT4.LoadFile App.Path & "\RT4.TXT"
  1342. ReT5.LoadFile App.Path & "\RT5.TXT"
  1343. ReT6.LoadFile App.Path & "\RT6.TXT"
  1344. Combo1.ListIndex = 0
  1345.  
  1346. End Sub
  1347. Private Sub load()
  1348. On Error Resume Next
  1349. List1.Clear
  1350. List2.Clear
  1351.  
  1352. Dim RS As New Recordset
  1353.  RS.Open "SELECT * FROM USSC where printstatus='" & "NOT DONE" & "'", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1354.    
  1355.    Do While Not RS.EOF
  1356.       List1.AddItem RS!ServiceNo
  1357.       List2.AddItem RS!VNo
  1358.     RS.MoveNext
  1359.     Loop
  1360.    RS.Close
  1361.    
  1362.    
  1363. End Sub
  1364. Private Sub loadVehicle()
  1365. On Error Resume Next
  1366. List3.Clear
  1367. Dim RSJO As New Recordset
  1368.  RSJO.Open "SELECT * FROM Vehicle", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1369.         Do While Not RSJO.EOF
  1370.         
  1371.         List3.AddItem RSJO!typeofVehicle
  1372.     
  1373.     RSJO.MoveNext
  1374.     Loop
  1375.   RSJO.Close
  1376.   
  1377. End Sub
  1378. Private Sub LOADJOBCARDNO()
  1379. On Error Resume Next
  1380. Dim RSc As New Recordset
  1381.  RSc.Open "SELECT * FROM NUMBERS", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1382.         SR = RSc!JobCard
  1383.         SRPLUS = SR + 1
  1384.         Text10 = "SER " & Format(SRPLUS, "000000")
  1385.   RSc.Close
  1386.   
  1387. End Sub
  1388. Private Sub LOADBILLNO()
  1389. On Error Resume Next
  1390. Dim RSc As New Recordset
  1391. RSc.Open "SELECT * FROM NUMBERS", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1392.         NR = RSc!BillNo
  1393.         NRPLUS = NR + 1
  1394.         Text14 = "SEB " & Format(NRPLUS, "000000")
  1395.   RSc.Close
  1396.   
  1397. End Sub
  1398. Private Sub SaveJOBCARDNO()
  1399. On Error Resume Next
  1400. Dim RSc As New Recordset
  1401.  RSc.Open "SELECT JobCard FROM NUMBERS", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1402.          currentMode = EditMode
  1403.               RSc!JobCard = SRPLUS
  1404.         RSc.Update
  1405.   RSc.Close
  1406.  
  1407. End Sub
  1408. Private Sub SaveBillNO()
  1409. On Error Resume Next
  1410. Dim RSc As New Recordset
  1411.  RSc.Open "SELECT JobCard FROM NUMBERS", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1412.          currentMode = EditMode
  1413.               RSc!BillNo = NRPLUS
  1414.         RSc.Update
  1415.   RSc.Close
  1416.  
  1417. End Sub
  1418.  
  1419.  
  1420. Private Sub List1_Click()
  1421. On Error Resume Next
  1422. List2.ListIndex = List1.ListIndex
  1423. Dim RS As New Recordset
  1424.  RS.Open "SELECT * FROM USSC where Serviceno='" & List1.Text & "' and VNo='" & List2.Text & "'", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1425.     Text10 = RS!ServiceNo
  1426.     Text12 = RS!typeofVehicle
  1427.     Text11 = RS!VNo
  1428.     Text15 = RS!NOC
  1429.     Text8 = RS!EntryTime
  1430.     Text1 = RS!FullServiceAmt
  1431.     Text2 = RS!HalfServiceAmt
  1432.     Text3 = RS!UnderSideAmt
  1433.     Text4 = RS!EngineWashingAmt
  1434.     Text5 = RS!WaterSprayAmt
  1435.     Text6 = RS!GelingWashAmt
  1436.     ReT3 = RS!UnderSide
  1437.     ReT4 = RS!EngineWashing
  1438.     ReT5 = RS!WaterSpray
  1439.     ReT6 = RS!GelingWash
  1440.     Text7 = RS!amount
  1441.     Command9_Click
  1442.  RS.Close
  1443.   
  1444. End Sub
  1445.  
  1446. Sub BlankFields()
  1447.   Text1 = ""
  1448.   Text2 = ""
  1449.   Text3 = ""
  1450.   Text4 = ""
  1451.   Text5 = ""
  1452.   Text6 = ""
  1453.   Text8 = ""
  1454.   Text9 = ""
  1455.   Text10 = ""
  1456.   Text11 = ""
  1457.   Text12 = ""
  1458.   Text13 = ""
  1459.   Text15 = ""
  1460. End Sub
  1461.  
  1462.  
  1463. Private Sub List2_Click()
  1464. List1.ListIndex = List2.ListIndex
  1465. List1_Click
  1466. End Sub
  1467.  
  1468. Private Sub List3_Click()
  1469. Text12.Text = List3.Text
  1470. End Sub
  1471.  
  1472. Private Sub List3_DblClick()
  1473. Frame1.Visible = False
  1474. Text15.SetFocus
  1475. End Sub
  1476.  
  1477. Private Sub List3_KeyDown(KeyCode As Integer, Shift As Integer)
  1478. If KeyCode = 13 Then
  1479. Text15.SetFocus
  1480. Frame1.Visible = False
  1481. End If
  1482. End Sub
  1483.  
  1484.  
  1485. Private Sub MnuAddVehicle_Click()
  1486. FrmAddVehicle.Show
  1487. End Sub
  1488.  
  1489. Private Sub ReT3_KeyDown(KeyCode As Integer, Shift As Integer)
  1490. If KeyCode = 13 Then
  1491. Open App.Path & "\RT3.dll" For Output As #1
  1492. Print #1, ReT3.Text
  1493. Close #1
  1494. End If
  1495. End Sub
  1496.  
  1497. Private Sub RT4_KeyDown(KeyCode As Integer, Shift As Integer)
  1498. If KeyCode = 13 Then
  1499. Open App.Path & "\RT4.TXT" For Output As #2
  1500. Print #2, RT4.Text
  1501. Close #2
  1502. End If
  1503. End Sub
  1504.  
  1505. Private Sub RT5_KeyDown(KeyCode As Integer, Shift As Integer)
  1506. If KeyCode = 13 Then
  1507. Open App.Path & "\RT5.TXT" For Output As #3
  1508. Print #3, RT5.Text
  1509. Close #3
  1510. End If
  1511. End Sub
  1512.  
  1513. Private Sub RT6_KeyDown(KeyCode As Integer, Shift As Integer)
  1514. If KeyCode = 13 Then
  1515. Open App.Path & "\RT6.TXT" For Output As #4
  1516. Print #4, RT6.Text
  1517. Close #4
  1518. End If
  1519. End Sub
  1520.  
  1521.  
  1522.  
  1523. Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  1524. If KeyCode = 13 Then
  1525. Text1.Text = Format(Text1.Text, "0.00")
  1526. Text2.SetFocus
  1527. End If
  1528. End Sub
  1529.  
  1530.  
  1531. Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)
  1532. If KeyCode = 13 Then
  1533. Frame1.Visible = True
  1534. List3.SetFocus
  1535. End If
  1536. End Sub
  1537.  
  1538. Private Sub Text12_Click()
  1539. Frame1.Visible = True
  1540. End Sub
  1541.  
  1542. Private Sub Text13_KeyDown(KeyCode As Integer, Shift As Integer)
  1543. If KeyCode = 13 Then
  1544. Command8_Click
  1545. End If
  1546.  
  1547. End Sub
  1548.  
  1549. Private Sub Text15_KeyDown(KeyCode As Integer, Shift As Integer)
  1550. If KeyCode = 13 Then
  1551. Text1.SetFocus
  1552. End If
  1553. End Sub
  1554.  
  1555. Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  1556. If KeyCode = 13 Then
  1557. Text2.Text = Format(Text2.Text, "0.00")
  1558. Text3.SetFocus
  1559. End If
  1560. End Sub
  1561.  
  1562. Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
  1563. If KeyCode = 13 Then
  1564. Text3.Text = Format(Text3.Text, "0.00")
  1565. Text4.SetFocus
  1566. End If
  1567. End Sub
  1568.  
  1569. Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer)
  1570. If KeyCode = 13 Then
  1571. Text4.Text = Format(Text4.Text, "0.00")
  1572. Text5.SetFocus
  1573. End If
  1574. End Sub
  1575.  
  1576. Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer)
  1577. If KeyCode = 13 Then
  1578. Text5.Text = Format(Text5.Text, "0.00")
  1579. Text6.SetFocus
  1580. End If
  1581. End Sub
  1582.  
  1583. Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer)
  1584. If KeyCode = 13 Then
  1585. Text6.Text = Format(Text6.Text, "0.00")
  1586. Command1_Click
  1587. End If
  1588. End Sub
  1589.  
  1590. Private Sub Timer1_Timer()
  1591. Text7.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)
  1592. Text7.Text = Format(Text7.Text, "0.00")
  1593. End Sub
  1594.  
  1595. Private Sub PrintingBILL()
  1596. Dim d, ts, bs, cs, ds, es, fs, gs
  1597.  
  1598. Dim Page As Integer
  1599. Dim sngTotalPage As Single
  1600. M.NumOfRowsPerPage = 30
  1601. M.RowHeight = 12 * 30
  1602. If List.ListItems.Count = 0 Then
  1603. MsgBox "NO ITEM SELECTED FOR PRINT"
  1604. Exit Sub
  1605. Else
  1606. sngTotalPage = List.ListItems.Count / M.NumOfRowsPerPage
  1607. If sngTotalPage - Int(sngTotalPage) <> 0 Then sngTotalPage = Int(sngTotalPage) + 1
  1608. Me.ScaleMode = vbPixels 'this must be done, the container [LEDGER in this case] must be in vbpixels scalemode
  1609. Printer.ScaleMode = vbTwips
  1610. Printer.PaperSize = vbPRPSA4             ' vbPRPSA5
  1611. Printer.Orientation = vbPRORPortrait      'vbPRORLandscape
  1612. Printer.Font = List.Font.Name
  1613. Printer.FontSize = List.Font.Size
  1614. While Not M.LastRowPrinted
  1615.         Page = Page + 1
  1616.         M.SetRows
  1617.         Printer.CurrentX = 1900
  1618.         Printer.CurrentY = 60: Printer.FontSize = 12: Printer.FontUnderline = True: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1619.         Printer.Print "BILL/CASH MEMO"  ' - " & Text17.Text
  1620.         
  1621.         Printer.CurrentX = 980
  1622.         Printer.CurrentY = 530: Printer.FontItalic = True: Printer.FontUnderline = False: Printer.FontSize = 22: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1623.         Printer.Print "SERVICING CENTRE"
  1624.        
  1625.         Printer.FontSize = 12: Printer.FontItalic = False: Printer.FontUnderline = False: Printer.FontBold = False: Printer.FontName = "Arial"
  1626.         M.PrintHead Printer
  1627.         M.PrintBody Printer
  1628.         
  1629.         Printer.CurrentX = 1800
  1630.         Printer.CurrentY = 1030: Printer.FontBold = True: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1631.         Printer.Print "SERVELL COMPLEX"
  1632.         
  1633.         Printer.CurrentX = 380
  1634.         Printer.CurrentY = 1330: Printer.FontBold = False: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1635.         Printer.Print "Jingkieng Nongrim Hills, Shillong-793003(Meghalaya)"
  1636.         
  1637.         Printer.CurrentX = 1980
  1638.         Printer.CurrentY = 1580: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1639.         Printer.Print "Bill No." & Text14.Text
  1640.         
  1641.         
  1642.         Printer.CurrentX = 3380
  1643.         Printer.CurrentY = 1580: Printer.FontBold = False: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1644.         Printer.Print "TEL: 0364-2520730"
  1645.         
  1646.         Printer.CurrentX = 4390
  1647.         Printer.CurrentY = 230: Printer.FontBold = False: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1648.         Printer.Print " "
  1649.         
  1650.         Printer.CurrentX = 4390
  1651.         Printer.CurrentY = 400: Printer.FontBold = False: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1652.         Printer.Print " "
  1653.  
  1654.         Printer.CurrentX = 380
  1655.         Printer.CurrentY = 1930: Printer.FontSize = 12: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1656.         Printer.Print "Vehicle No. :- " & Text11.Text
  1657.         
  1658.         Printer.CurrentX = 380
  1659.         Printer.CurrentY = 2230: Printer.FontSize = 12: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1660.         Printer.Print "Type of Vehicle :- " & Text12.Text
  1661.         
  1662.         Printer.CurrentX = 380
  1663.         Printer.CurrentY = 2630: Printer.FontSize = 12: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1664.         Printer.Print "Entry Time :- " & Text8.Text
  1665.  
  1666.         Printer.CurrentX = 3880
  1667.         Printer.CurrentY = 2630: Printer.FontSize = 12: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1668.         Printer.Print "Exit Time :- " & Text9.Text
  1669.         
  1670.         Printer.CurrentX = 380
  1671.         Printer.CurrentY = 3030: Printer.FontSize = 10: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1672.         Printer.Print "____________________________________________________________"
  1673.         
  1674.         Printer.CurrentX = 380
  1675.         Printer.CurrentY = 7880: Printer.FontSize = 12: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1676.         Printer.Print "Date: " & Format(Date, "dd-mm-yy")
  1677.         
  1678.         Printer.FontSize = 8: Printer.FontName = "Times New Roman"
  1679.         Printer.CurrentX = 380
  1680.         Printer.CurrentY = 5800: Printer.FontBold = True: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1681.         Printer.Print "____________________________________________________________"
  1682.         
  1683.         Printer.CurrentX = 380
  1684.         Printer.CurrentY = 6150: Printer.FontBold = True: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1685.         Printer.Print "____________________________________________________________"
  1686.  
  1687.         
  1688.         
  1689.         Text7.SelStart = 0
  1690.         gs = Text6.MaxLength - Len(Text6.Text)
  1691.         Printer.CurrentX = 4780
  1692.         Printer.CurrentY = 6030: Printer.FontSize = 12: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1693.         Printer.Print Space(gs) & Text7.Text
  1694.         
  1695.         Printer.CurrentX = 380
  1696.         Printer.CurrentY = 7300: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1697.         Printer.Print "Receive with thanks " & Chr(13) & "Rs. " & Text7.Text & " From " & Chr(13) & "Mr. " & Text15.Text
  1698.  
  1699.         Printer.CurrentX = 5000
  1700.         Printer.CurrentY = 7880: Printer.FontBold = False: Printer.FontItalic = True: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1701.         Printer.Print "For"
  1702.         
  1703.         Printer.CurrentX = 5500
  1704.         Printer.CurrentY = 7880: Printer.FontBold = False: Printer.FontItalic = False: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1705.         Printer.Print "A.P.P.H"
  1706.  
  1707.         Printer.CurrentX = 500
  1708.         Printer.CurrentY = 14500: Printer.FontBold = True
  1709.         Printer.NewPage
  1710.         
  1711. Wend
  1712.         Printer.EndDoc
  1713.         M.LastRowPrinted = False
  1714.         Me.ScaleMode = vbTwips
  1715.         Dim SQL As String
  1716.         Dim RS As New Recordset
  1717.         SQL = "SELECT * FROM USSC WHERE ServiceNo='" & Text10.Text & "' AND VNo='" & Text11.Text & "'"
  1718.         RS.Open SQL, Connect, adOpenStatic, adLockOptimistic, adCmdText
  1719.         If RS.EOF = False Then
  1720.                 currentMode = EditMode
  1721.                    RS!PrintBILL = "DONE"
  1722.                 RS.Update
  1723.                 load
  1724.                 MsgBox "Done"
  1725.                 End If
  1726. End If
  1727.         
  1728. End Sub
  1729.  
  1730. Private Sub PrintJOB()
  1731. Dim d, ts, bs, cs, ds, es, fs, gs
  1732.  
  1733. Dim Page As Integer
  1734. Dim sngTotalPage As Single
  1735. M.NumOfRowsPerPage = 30
  1736. M.RowHeight = 12 * 30
  1737. If List.ListItems.Count = 0 Then
  1738. MsgBox "NO ITEM SELECTED FOR PRINT"
  1739. Exit Sub
  1740. Else
  1741. sngTotalPage = List.ListItems.Count / M.NumOfRowsPerPage
  1742. If sngTotalPage - Int(sngTotalPage) <> 0 Then sngTotalPage = Int(sngTotalPage) + 1
  1743. Me.ScaleMode = vbPixels 'this must be done, the container [LEDGER in this case] must be in vbpixels scalemode
  1744. Printer.ScaleMode = vbTwips
  1745. Printer.PaperSize = vbPRPSA4             ' vbPRPSA5
  1746. Printer.Orientation = vbPRORPortrait      'vbPRORLandscape
  1747. Printer.Font = List.Font.Name
  1748. Printer.FontSize = List.Font.Size
  1749. While Not M.LastRowPrinted
  1750.         Page = Page + 1
  1751.         M.SetRows
  1752.         Printer.CurrentX = 3500
  1753.         Printer.CurrentY = 60: Printer.FontSize = 12: Printer.FontUnderline = True: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1754.         Printer.Print "JOB CARD NO.:- " & Text10.Text
  1755.         
  1756.         Printer.CurrentX = 2980
  1757.         Printer.CurrentY = 530: Printer.FontItalic = True: Printer.FontUnderline = False: Printer.FontSize = 22: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1758.         Printer.Print "SERVICING CENTRE"
  1759.        
  1760.         Printer.FontSize = 12: Printer.FontItalic = False: Printer.FontUnderline = False: Printer.FontBold = False: Printer.FontName = "Arial"
  1761.         M.PrintHead Printer
  1762.         M.PrintBody Printer
  1763.         
  1764.         Printer.CurrentX = 3800
  1765.         Printer.CurrentY = 1030: Printer.FontBold = True: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1766.         Printer.Print "SERVELL COMPLEX"
  1767.         
  1768.         Printer.CurrentX = 2380
  1769.         Printer.CurrentY = 1330: Printer.FontBold = False: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1770.         Printer.Print "Jingkieng Nongrim Hills, Shillong-793003(Meghalaya)"
  1771.         
  1772.         
  1773.         Printer.CurrentX = 6390
  1774.         Printer.CurrentY = 230: Printer.FontBold = False: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1775.         Printer.Print " "
  1776.         
  1777.         Printer.CurrentX = 6390
  1778.         Printer.CurrentY = 400: Printer.FontBold = False: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1779.         Printer.Print " "
  1780.  
  1781.         Printer.CurrentX = 2380
  1782.         Printer.CurrentY = 1930: Printer.FontSize = 12: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1783.         Printer.Print "Vehicle No. :- " & Text11.Text
  1784.         
  1785.         Printer.CurrentX = 2380
  1786.         Printer.CurrentY = 2230: Printer.FontSize = 12: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1787.         Printer.Print "Type of Vehicle :- " & Text12.Text
  1788.         
  1789.         Printer.CurrentX = 2380
  1790.         Printer.CurrentY = 2630: Printer.FontSize = 12: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1791.         Printer.Print "Entry Time :- " & Text8.Text
  1792.  
  1793.         Printer.CurrentX = 5880
  1794.         Printer.CurrentY = 2630: Printer.FontSize = 12: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1795.         Printer.Print "Exit Time :- " & Text9.Text
  1796.         
  1797.         Printer.CurrentX = 2380
  1798.         Printer.CurrentY = 3030: Printer.FontSize = 10: Printer.FontBold = False: Printer.FontName = "Times New Roman"
  1799.         Printer.Print "____________________________________________________________"
  1800.         
  1801.         Printer.CurrentX = 2380
  1802.         Printer.CurrentY = 7880: Printer.FontSize = 12: Printer.FontBold = True: Printer.FontName = "Times New Roman"
  1803.         Printer.Print "Date: " & Format(Date, "dd-mm-yy")
  1804.         
  1805.         Printer.FontSize = 8: Printer.FontName = "Times New Roman"
  1806.         Printer.CurrentX = 2380
  1807.         Printer.CurrentY = 5700: Printer.FontBold = True: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1808.         Printer.Print "____________________________________________________________"
  1809.         
  1810.         Printer.CurrentX = 2380
  1811.         Printer.CurrentY = 6150: Printer.FontBold = True: Printer.FontSize = 10: Printer.FontName = "Times New Roman"
  1812.         Printer.Print "____________________________________________________________"
  1813.  
  1814.         
  1815.         Printer.CurrentX = 7000
  1816.         Printer.CurrentY = 7880: Printer.FontBold = False: Printer.FontItalic = True: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1817.         Printer.Print "For"
  1818.         
  1819.         Printer.CurrentX = 7500
  1820.         Printer.CurrentY = 7880: Printer.FontBold = False: Printer.FontItalic = False: Printer.FontSize = 12: Printer.FontName = "Times New Roman"
  1821.         Printer.Print "A.P.P.H"
  1822.  
  1823.         Printer.CurrentX = 2500
  1824.         Printer.CurrentY = 14500: Printer.FontBold = True
  1825.         Printer.NewPage
  1826.         
  1827. Wend
  1828.         Printer.EndDoc
  1829.         M.LastRowPrinted = False
  1830.         Me.ScaleMode = vbTwips
  1831.         Dim RS As New Recordset
  1832.        
  1833.         RS.Open "SELECT * FROM USSC where ServiceNo='" & Text10.Text & "' AND VNo='" & Text11.Text & "'", Connect, adOpenStatic, adLockOptimistic, adCmdText
  1834.         
  1835.                 currentMode = EditMode
  1836.                    RS!PrintStatus = "DONE"
  1837.                    RS!PrintBILL = "NOT DONE"
  1838.                 RS.Update
  1839.                 MsgBox "RECORD MOVED TO BILLING SECTION."
  1840.                 load
  1841.                 
  1842.                 End If
  1843.         
  1844. End Sub
  1845.  
  1846.  
  1847.